Module modGlobals
    Public g_isTrayMode As Boolean = False
    Public g_isQueuedToMinimize As Boolean = False
    Public g_isPaidMode As Boolean = False

    Friend Sub gotoHelpWebsite()
        LaunchWebsite(My.Settings.urlAppHelp)
    End Sub

    Friend Sub gotoPrivacyPolicy()
        LaunchWebsite(My.Settings.urlPrivacyPolicy)
    End Sub

    Friend Sub gotoPurchaseWebsite()
        LaunchWebsite(My.Settings.urlAppBuy)
    End Sub

    Friend Sub gotoProductWebsite()
        LaunchWebsite(My.Settings.urlAppHomepage)
    End Sub

    Friend Sub gotoBlogWebsite()
        LaunchWebsite(My.Settings.urlAppBlog)
    End Sub

    Private Sub LaunchWebsite(ByVal strURL As String)
        ' Purpose:
        '   Launches a given URL in the default browser

        Process.Start(strURL)
    End Sub
End Module
